home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / et / et-2_2.lha / et2.2 / src / AccessMem.C next >
C/C++ Source or Header  |  1990-11-28  |  2KB  |  91 lines
  1. #include "AccessMem.h"
  2. #include "System.h"
  3.  
  4. static void peekLength(void *p1, void *p2, void*, void*)
  5. {
  6.     *((int*) p1)= *((int*) p2);
  7. }
  8.  
  9. //---- AccessMembers ---------------------------------------------------------
  10.  
  11. AccessMembers::AccessMembers()
  12. {
  13. }
  14.  
  15. bool AccessMembers::IsObjPtr(int type, Class *cl)
  16. { 
  17.     return (type & T_PTR) && cl->TestFlag(eClassObject); 
  18. }
  19.  
  20. int AccessMembers::GetLength(Object *inObject, short lenOrOffset, int type)
  21. {
  22.     if (type & T_VEC) { 
  23.     int l= 0, *lp= (int*)((u_long)inObject + (u_long)lenOrOffset);
  24.     if (gSystem->Call(peekLength, (void*) &l, (void*) lp, 0, 0))
  25.         return -1;
  26.     return l;
  27.     }
  28.     if (type & T_ARR)
  29.     return lenOrOffset;
  30.     return -1;
  31. }
  32.  
  33. Object *AccessMembers::GetObject(Object *inObject, short offset, int type, Class *cl)
  34. {
  35.     if (cl->TestFlag(eClassObject) && (type & T_PTR))
  36.     return *(Object**)((unsigned long) inObject + (unsigned long) offset);
  37.     return 0;
  38. }
  39.  
  40. bool AccessMembers::IsObjPtrVec(int type, Class *cl)
  41. {
  42.     return cl->TestFlag(eClassObject) && (type&T_PTR2) && (type & (T_ARR|T_VEC));
  43. }
  44.  
  45. Object **AccessMembers::GetObjPtrVec(Object *inObject, short offset, int type, Class *cl)
  46. {
  47.     if (IsObjPtrVec(type, cl))
  48.     return *(Object***)((u_long) inObject + (u_long) offset);
  49.     return 0;
  50. }
  51.  
  52. void AccessMembers::ClassName(char*)
  53. {
  54. }
  55.  
  56. void AccessMembers::Member(char *name, short offset, short offsetOrLen, int type, Class *cl)
  57. {
  58. }
  59.  
  60. //---- AccessObjPtrs ----------------------------------------------------------
  61.  
  62. AccessObjPtrs::AccessObjPtrs(Object *op)
  63. { 
  64.     inObject= op; 
  65. }
  66.     
  67. void AccessObjPtrs::ForObject(Object *op)
  68. { 
  69.     inObject= op; 
  70. }
  71.  
  72. void AccessObjPtrs::Member(char *name, short offset, short offsetOrLen, int type, Class *cl)
  73. {
  74.     if (IsObjPtrVec(type, cl)) {
  75.     int l= GetLength(inObject, offsetOrLen, type);
  76.     Object **ov= GetObjPtrVec(inObject, offset, type, cl);
  77.     for (int i= 0; ov && i < l; i++) 
  78.         if (ov[i]) 
  79.         FoundPointer(ov[i], name, i);
  80.     }
  81.     else { 
  82.     if (IsObjPtr(type, cl)) {
  83.         FoundPointer(GetObject(inObject, offset, type, cl), name, -1);
  84.     } 
  85.     }
  86. }
  87.  
  88. void AccessObjPtrs::FoundPointer(Object *op, char*, int)
  89. {
  90. }
  91.